function msxjoystick(v_joystick as ubyte)
  '- not tested
  out $a0,15
  out $a1,v_joystick band $01
  out $a0,14
  return inp($a2) band 63
  end function
